home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / -archivi / -recent2 / cgxv42_r1.lha / CGXV4_Update next >
Text File  |  1999-03-15  |  28KB  |  578 lines
  1. ;*****************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /      Update        / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  / V4
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ; S3           : CyberVision64/3D, CyberVision64
  10. ; Cirrus Logic : Picasso II, Picasso II+, Picasso IV, Spectrum 
  11. ;                 Piccolo, Piccolo SD64, Inferno
  12. ; Symbios (NCR): Retina BLT Z3,  DraCoAltais
  13. ; Texas Inst.  : CyberVisionPPC (Permedia), BlizzardVisionPPC (Permedia) 
  14. ;          
  15. ; CyberGraphX V4 ©1998, 1999 Vision Factory Development
  16. ; CyberGraphX V4 Installer ©1995,1996,1997,1998,1999 by Robert C. Reiswig 
  17. ; $VER: V0.65e (March-04-1999)
  18. ; 
  19. ; If you wish to use any part of this installer you must ask. May not be 
  20. ; integrated/placed into any other package! You may NOT change this in an way!
  21. ; You man NOT take or use the ENV definitions and use them without direct
  22. ; permission from me! Changes, suggestions or problems: vgr@best.com
  23. ;********************************************************************************
  24.  
  25.  
  26.  
  27. ;********************************************************************************
  28. ; Cyber Release & Boards
  29. ;********************************************************************************
  30. (set @user-level 2)
  31. (set #cyberver "V4 42.1")
  32. (set NoBoard 0)
  33. (set whereback "SYS:Storage")
  34.  
  35. (message (cat "CyberGraphX " #cyberver "\n~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  36.               "CyberVisionPPC & BlizzardVisionPPC\n\nCyberVision64/3D & CyberVision64\n\n"
  37.               "Picasso II(+) & Picasso IV & Inferno\n\n"
  38.               "Piccolo & Piccolo SD64 & Spectrum 28/24\n\nRetina BLT Z3 & DraCoAltais"
  39.          )
  40. )
  41.  
  42. (welcome)
  43. ;********************************************************************************
  44. ; Read All System information
  45. ;********************************************************************************
  46. (set cpu (database "cpu")) (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
  47. (set vblank (database "vblank")) (set graphmem (database "graphics-mem"))
  48. (set totmem (database "total-mem")) (set osver (/ (getversion "LIBS:version.library") 65536))
  49. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  50. (set fastmem (- totmem graphmem))
  51. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  52. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  53. ( if (= osver 41) ( (set workbench "3.2")) )))))
  54. (set cgx_root "CGraphX4")  (if (= 2 (exists "CGraphX41" (noreq)))  (set cgx_root "CGraphX41"))
  55. (set diskname "CyberGraphX_4")
  56. (set spatchbin (tackon cgx_root "tools/spatch"))
  57. (set tempdir "ram:CGX_V4_Temp1") (makedir tempdir)
  58. (askdisk (dest diskname) (prompt #needcd) (help #needcd) )
  59. ;;(set cgx_root (tackon (cat diskname ":") cgx_root))
  60. (set cd_root "CGraphX4")
  61.  
  62. (set pick 0)
  63.  
  64. ;********************************************************************************
  65. ;English Strings
  66. ;********************************************************************************
  67. (set #askzorro "\nWhat type of machine is CyberGraphX V4 installed on?\n")
  68. (set #askcpu "\nWhat CPU does the machine have that you are updating CyberGraphX V4 on? The installer has found:\n")
  69. (set #wherelibs "Where are your CyberGraphX V4 libraries located? The default is 'SYS:Libs'")
  70. (set #todo-prompt "\nDo you wish to install:\n")
  71. (set #cgxmode-todo " CGXMode - Create & Change Screen Modes")
  72. (set #wheremode "Where do you wish to copy the CGXMode Program?")
  73. (set #whereshowcgxconfig "Where do you wish to copy the ShowCGXconfig Program?")
  74. (set #showcgxconfig " ShowCGXconfig - CGX Info Program")
  75.  
  76. ;*********** NEW English Strings:  Monday 01-Dec-97 *************************
  77. (set #nocgxmode "\n\nOne of the graphic card(s) you selected does not currently support the use of CGXMode.\n\nA2410 or AGA(PPC)\n\nCGXMode can be use with all of the other CyberGraphX supported cards!")
  78.  
  79. ;*********** NEW English Strings:  Wednesday 21-Jan-98 **********************
  80. (set #updatep4flash "\nTo use CyberGraphX with the Picasso IV you should be running version 2.0 or greater of the Picasso IV FlashROM.\n\nThe installer has found a version lower then 2.0.\n\nForm more information and newer FlashROMs you can contact:\nYour Dealer\nVillage Tronic\nVillage Tronic Web site\n")
  81.  
  82. ;*********** NEW English Strings:  Wednesday 11-Mar-98 **********************
  83. (set #noppc1 "\n\nYou selected the PPC option for one of your CPUs. The installer did not find the 'libs:PPC.library'.\n\nCyberGraphX may not work correctly.\n\n Do you wish to reselect the CPU type?")
  84. (set #noppcaga "\nYou selected the 'AGA (PPC Only)' option when picking what graphics card (display device) to use with CyberGraphX. The installer did not find the 'libs:PPC.library'.\n\n The AGACGX driver needs a PPC card installed to work correctly.\n\nDo you wish to Abort the install now?.")
  85. (set #agaquit "\nCyberGraphX install/update exiting.")
  86.  
  87. ;*********** NEW English Strings:  Thursday 22-Oct-98 **********************
  88. (set #needcd "\n\n\nPlease place your CyberGraphX V4 CDROM into your CDROM drive to continue.")
  89. (set #nobackup "\n\nThis installer will copy the correct new V4 Libs and Monitor to the correct places. It will also upgrade a _working_ V3 system to a V4 system. It does not do any back up currently.\n\nThis will not install V4 for the first time, it just _updates_ or _upgrades_ a CGX V3/V4 system.")
  90. (set #whatboard (cat "Please Select the Graphics Board you wish to update CyberGraphX Monitor File for. (*=Not Supported)"))
  91. (set #guide " CGX Docs - AmigaGuide file")
  92. (set #commy " CyberGraphX - Settings Tool")
  93. (set #wheredocs "Where do you wish to install the CGX AmigaGuide file?")
  94. (set #wherecomm "Where do you wish to install the CGX Settings Tool?")
  95. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  96.               "©1998-1999 by:\n\nVision Factory Development"
  97.           
  98.          )
  99. )
  100.  
  101. ;*********** NEW English Strings:  Sunday 21-Feb-99 14:35:46 **********************
  102. (set #workingpatching "\nCurrently patching the file:\n\n")
  103. (set #spatcherror1 "\n\nspatch has returned an error. Please read the error message in the 'spatch' window.\n\nspatch does not return the type of error back to the installer so you must read its error.\n\n The installer will let you continue but the CGX V4 install my not be complete, your base files may be bad.")
  104.  
  105. ;********************************************************************************
  106. ;German Strings by the King!
  107. ;********************************************************************************
  108. (if (= @language "deutsch")
  109. (
  110.  (set #nobackup "\n\nDieses Installationsskript kopiert die neuen V4 Bibliotheken und Monitore in die entsprechenden Verzeichnisse. Es wird keine Sicherung vorgenommen.\n\nEs ist keine V4 Erstinstallation, das V4 System wird nur _erneuert_ . Ein V2->V4 Update ist aber bereits in Arbeit.")
  111.  (set #askzorro "\nWelche Erweiterungsslots besitzt der Computer, auf dem Sie CyberGraphX V4 installieren ?\n")
  112.  (set #askcpu "\nWelchen Prozessor besitzt der Computer, auf dem Sie CyberGraphX V4 installieren wollen ? Der installer hat folgendes gefunden:\n")
  113.  (set #wherelibs "Wo befinden sich die CyberGraphX V4 Bibliotheken ? Standard ist 'SYS:Libs'")
  114.  (set #whatboard (cat "Bitte wählen Sie die Grafikkarte, deren CyberGraphX Monitordatei erneuern wollen:"))
  115.  (set #todo-prompt "\nWelches der folgenden Programme wollen Sie installieren: ?\n")
  116.  (set #cgxmode-todo " CGXMode - Erstellen & Ändern von Bildschirmmodis")
  117.  (set #wheremode "Wohin wollen Sie das CGXMode Programm kopiert haben?")
  118.  (set #whereshowcgxconfig "Wohin wollen Sie das ShowCGXconfig Programm kopiert haben?")
  119.  (set #showcgxconfig " ShowCGXconfig - CyberGraphX Informationsprogramm")
  120.  
  121. ;*********** NEW German Strings:  Monday 01-Dec-97 *************************
  122.  (set #nocgxmode "\n\nEine/Mehrere Grafikkarte(n), die Sie ausgewählt haben, wird/werden von CGXMode momentan nicht unterstützt.\n\nA2410 oder AGA(PPC)\n\nCGXMode kann mit allen anderen Karten, die CyberGraphX unterstützt, jedoch benutzt werden!")
  123.  
  124. ;*********** NEW German Strings:  Wednesday 11-Mar-98 **********************
  125.  (set #noppc1 "\n\nYou selected the PPC option for one of your CPUs. The installer did not find the 'libs:PPC.library'.\n\nCyberGraphX may not work correctly.\n\n Do you wish to reselect the CPU type?")
  126.  (set #noppcaga "\nYou selected the 'AGA (PPC Only)' option when picking what graphics card (display device) to use with CyberGraphX. The installer did not find the 'libs:PPC.library'.\n\n The AGACGX driver needs a PPC card installed to work correctly.\n\nDo you wish to Abort the install now?.")
  127.  (set #agaquit "\nCyberGraphX Installation/Erneuerung endet.")
  128.  
  129. ;*********** NEW German Strings:  Wednesday 21-Jan-98 **********************
  130.  (set #updatep4flash "\nUm CyberGraphX3 mit der PicassoIV zu benutzen, sollten sie auf jeden Fall die Version 2.0 oder größer des PicassoIV FlashROMs installieren.\n\nDas Installationsskript entdeckte eine ältere Version.\n\nFür weitere Informationen und eine neuere FlashROM Version kontaktieren Sie bitte:\nIhren Händler\nVillageTronic\ndie VillageTronic WWW Seite\n")
  131.  
  132. ;*********** NEW German Strings:  Thursday 22-Oct-98 **********************
  133.  (set #needcd "\n\n\nBitte legen Sie die CyberGraphX V4 CDROM in das CDROM Laufwerk ein, um fortzufahren.")
  134.  (set #nobackup "\n\nDieses Installationsskript kopiert die neuen V4 Bibliotheken and Monitortreiber in die entsprechenden Verzeichnisse. Es erneuert ebenso ein _vorhandenes_ V3 System auf V4. Es wird keine Sicherung der alten Dateien vorgenommen.\n\nDieses Skript kann nicht zur Erstinstallation verwendet werden, es _erneuert_ lediglich ein CGX V3/V4 System.")
  135.  (set #whatboard (cat "Bitte wählen Sie die Grafikkarte, deren CyberGraphX Monitortreiber Sie erneuern wollen. (*=Nicht unterstützt)"))
  136.  (set #guide " CGX Dokumentation - AmigaGuide Datei")
  137.  (set #commy " CyberGraphX - Einstellungs-Commodity")
  138.  (set #wheredocs "Wohin wollen Sie die CyberGraphX4 AmigaGuide Dokumentation installieren ?") 
  139.  (set #wherecomm "Wohin wollen Sie das CyberGraphX Commodity installieren ?")
  140.  (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  141.               "©1998-1999 by:\n\nVision Factory Development"
  142.           )
  143.  )
  144.  
  145. ;*********** NEW German Strings:  Sunday 21-Feb-99 14:35:46 **********************
  146. (set #workingpatching "\nMomentan bearbeitete Datei:\n\n")
  147. (set #spatcherror1 "\n\nspatch lieferte einen Fehler. Bitte lesen Sie die Fehlermeldung im 'spatch' Fenster.\n\nspatch lieferte keinen konkreten Fehlertyp.\n\n Das Installationsskript von CGX V4 kann fortgesetzt werden, aber die Installation ist dann möglicherweise unvollständig.")
  148.  
  149. )
  150. )
  151.  
  152. ;********************************************************************************
  153. ; French Strings by Gregory Eycken <geycken@geocities.com>
  154. ;********************************************************************************
  155. (if (= @language "français")
  156. (
  157.  (set #nobackup "\n\nCe script d'installation va copier les nouvelles bibliothèques et les nouveaux moniteurs de CyberGraphX V4 aux endroits adéquats. Il n'effectuera aucun archivage.\n\nCe script n'est pas prévu pour installer CyberGraphX V4 pour la première fois, il ne peut faire que la _mise à jour_ d'un système CyberGraphX V4 existant.\nUne mise à jour V2->V4 est à l'étude.")
  158.  (set #askzorro "\nSur quel type d'ordinateur CyberGraphX V4 est-il installé?\n")
  159.  (set #askcpu "\nQuel est le processeur de l'ordinateur sur lequel vous voulez mettre à jour CyberGraphX V4? L'installeur a trouvé :\n")
  160.  (set #wherelibs "Où sont installées les bibliothèques de CyberGraphX V4? Par défaut, c'est 'SYS:Libs'.")
  161.  (set #whatboard (cat "Veuillez sélectionner la carte graphique dont vous voulez mettre le fichier moniteur à jour :"))
  162.  (set #todo-prompt "\nDésirez-vous installer :\n")
  163.  (set #cgxmode-todo " CGXMode - Créer et modifier les modes d'écran")
  164.  (set #wheremode "Où désirez-vous installer le programme CGXMode?")
  165.  (set #whereshowcgxconfig "Où désirez-vous installer le programme ShowCGXconfig?")
  166.  (set #showcgxconfig " ShowCGXconfig - Programme d'informations CyberGraphX")
  167. )
  168. )
  169.  
  170. ;********************************************************************************
  171. ; Start Update
  172. ;********************************************************************************
  173. (askdisk (dest "CyberGraphX_4") (prompt #needcd) (help #needcd) )
  174. (message #by)
  175. (message #nobackup)
  176.  
  177.  
  178. ;*******************************************************************
  179. ; ASK what board to update
  180. ;*******************************************************************
  181. (set BGuess 0) (set AGA 0)
  182.  
  183. (if (> (exists ("devs:monitors/CVisionPPC")) 0)  (set BGuess (+ BGuess 1)) )
  184. (if (> (exists ("devs:monitors/CVision3D")) 0)   (set BGuess (+ BGuess 2)) )
  185. (if (> (exists ("devs:monitors/CVision64")) 0)   (set BGuess (+ BGuess 4)) )
  186. (if (> (exists ("devs:monitors/PicassoII")) 0)   (set BGuess (+ BGuess 8)) )
  187. (if (> (exists ("devs:monitors/Spectrum")) 0)    (set BGuess (+ BGuess 16)) )
  188. (if (> (exists ("devs:monitors/Piccolo")) 0)     (set BGuess (+ BGuess 32)) )
  189. (if (> (exists ("devs:monitors/PiccoSD64")) 0)   (set BGuess (+ BGuess 64)) )
  190. (if (> (exists ("devs:monitors/Inferno")) 0)     (set BGuess (+ BGuess 128)) )
  191. (if (> (exists ("devs:monitors/PicassoIV")) 0)   (set BGuess (+ BGuess 256)) )
  192. (if (> (exists ("devs:monitors/RetinaZ3")) 0)    (set BGuess (+ BGuess 512)) )
  193. (if (> (exists ("devs:monitors/DraCoAltais")) 0) (set BGuess (+ BGuess 1024)) )
  194. (if (> (exists ("devs:monitors/BVisionPPC")) 0)  (set BGuess (+ BGuess 2048)) )
  195. (if (> (exists ("devs:monitors/Pixel64")) 0)     (set BGuess (+ BGuess 4096)) )
  196.  
  197.   (set board (askoptions (choices  " CyberVisionPPC" " CyberVision64/3D" " CyberVision64" " PicassoII(+)" " Spectrum"
  198.                                    " Piccolo" " Piccolo SD64" " Inferno" " Picasso IV" " Retina BLT Z3"  " DraCoAltais" 
  199.                                    " BlizzardVisionPPC" ;; " Pixel64"  ;; " AGA (PPC Only)" " A2410"
  200.                           (prompt #whatboard)
  201.                       (help #whatboard)
  202.                           (default BGuess)
  203.                          )
  204.              )     
  205.   )
  206.  
  207. ;********************************************************************
  208. ; Double Check on the CPU
  209. ;********************************************************************
  210. (procedure askaboutcpu
  211.  
  212. (set cpu (database "cpu"))
  213. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  214. (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  215. (if (= cpu 68040) (set #cpu 1)) (if (= cpu 68060) (set #cpu 1)) 
  216. (if (= @installer-version 0)
  217.   (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 1) )
  218.   (if (= cpu 68060) (set #cpu 1))
  219. )
  220. ;;(if (> (exists ("libs:PPC.library")) 0) (set #cpu 2) )
  221.  
  222. (set cpuPick (askchoice (choices "68020 or 68030" "68040 or 68060") ; "PPC with 68040 or 68060")
  223.             (prompt #askcpu)
  224.                     (help   #askcpu)
  225.                   (default #cpu)
  226.       )
  227. )
  228.  
  229. (if (= cpuPick 0) ((set cpuadd ".020") (set cpuadd-1 ".020")) ) 
  230. (if (= cpuPick 1) ((set cpuadd ".040") (set cpuadd-1 ".040")) )
  231. ;;(if (= cpuPick 2) ((set cpuadd ".040") (set cpuadd-1 ".ppc")) )
  232.  
  233. ); END askaboutcpu
  234.  
  235. (askaboutcpu)
  236.  
  237. ;*******************************************************************
  238. ; Check on PPC
  239. ;*******************************************************************
  240. ;(set redocpu 0)
  241. ;(if (AND (= (exists ("libs:PPC.library")) 0) (= cpuPick 2)) 
  242. ; (set redocpu     (askbool (prompt #noppc1)
  243. ;               (help   #noppc1)
  244. ;                   
  245. ;              )
  246. ; )
  247. ;)
  248.  
  249. ;(if (= redocpu 1) (askaboutcpu))
  250.  
  251. ;(set agaquit 0)
  252. ;(if (AND (= (exists ("libs:PPC.library")) 0) (IN board 8)) 
  253. ; (set agaquit     (askbool (prompt #noppcaga)
  254. ;               (help   #noppcaga)
  255. ;                   
  256. ;              )
  257. ; )
  258. ;)
  259.  
  260. ;(if (= agaquit 1) (abort #agaquit))
  261.  
  262.  
  263. ;*******************************************************************
  264. ;  ASK where cybergfx libs are
  265. ;*******************************************************************
  266. (set wherelibs   (askdir (prompt #wherelibs)
  267.              (help   #wherelibs)
  268.                   (default "SYS:Libs")
  269.          )
  270. )
  271.  
  272. ;*******************************************************************
  273. ;  Spatch Crap PROCEDURE
  274. ;*******************************************************************
  275. (procedure spatch
  276.  (set todo (cat spatchbin " \"-p" pch_file "\" " "\"-o" (tackon tempdir pch_out) "\"" " \"" pch_in "\""))
  277.  (working (cat #workingpatching pch_file)) 
  278.  (set err (run todo))
  279.  (if (> err 0) (message #spatcherror1) )
  280. )
  281.  
  282. ;*******************************************************************
  283. ;  Copy libs PROCEDURE
  284. ;*******************************************************************
  285. (procedure copy_lib
  286.   (set pch_file (tackon cgx_root (tackon Libs_Dir (cat Libs_Name CPU_name ".pch"))))
  287.    (if (exists pch_file)
  288.      ( 
  289.       (set pch_in  (tackon (tackon (cat diskname ":") cd_root) (cat (tackon Libs_Dir Libs_Name) CPU_name)) )
  290.       (set pch_out (tackon tempdir (cat Libs_Name CPU_name)))   (spatch)
  291.       (set file_dir tempdir)
  292.      )
  293.  
  294.      (set file_dir (tackon cgx_root Libs_Dir))
  295.    )
  296.   (if (exists (tackon file_dir (cat Libs_Name CPU_name)))
  297.     (copyfiles (source (tackon file_dir (cat Libs_Name CPU_name))) (dest wherelibs) (newname Libs_Name) (optional "nofail") ) 
  298.   )
  299. )
  300.  
  301. ;*******************************************************************
  302. ;  Copy libs if there
  303. ;*******************************************************************
  304. (set Libs_Dir "cgxsystemlib") (set Libs_Name "cgxsystem.library") (set CPU_name cpuadd-1) (copy_lib)
  305. (set Libs_Dir "cgxmpeglib") (set Libs_Name "cgxmpeg.library") (set CPU_name cpuadd-1) (copy_lib)
  306. (set Libs_Dir "cgxbootpiclib") (set Libs_Name "cgxbootpic.library") (set CPU_name "") (copy_lib)
  307.  
  308. ;*******************************************************************
  309. ;  Copy monitor/driver PROCEDURE
  310. ;*******************************************************************
  311. (procedure copy_monitor
  312.   (set RootPatchFileName Driver_Name)
  313.   (if (= Driver_Name "BVisionPPC") (set RootPatchFileName "CVisionPPC"))
  314.   (if (= Driver_Name "DraCoAltais") (set RootPatchFileName "RetinaZ3"))
  315.  
  316.   (set pch_file (tackon cgx_root (tackon Driver_Dir (cat Driver_Name Z_name ".pch"))))
  317.    (if (exists pch_file)
  318.      ( 
  319.       (set pch_in  (tackon (tackon (cat diskname ":") cd_root) (cat (tackon Driver_Dir RootPatchFileName) Z_name)) )
  320.       (set pch_out (tackon tempdir (cat Driver_Name Z_name)))   (spatch)
  321.       (set file_dir tempdir)
  322.      )
  323.  
  324.      (set file_dir (tackon cgx_root Driver_Dir))
  325.    )
  326.  
  327.   (if (exists (tackon file_dir (cat Driver_Name Z_name)))
  328.    (if (= (exists (tackon "devs:monitors" (cat Driver_Name ".info"))) 0)
  329.      (copyfiles (source (tackon file_dir (cat Driver_Name Z_name))) (dest "devs:monitors") (newname Driver_Name) (infos) (optional "nofail") ) 
  330.      (copyfiles (source (tackon file_dir (cat Driver_Name Z_name))) (dest "devs:monitors") (newname Driver_Name) (optional "nofail") ) 
  331.    )
  332.   )
  333. )
  334.  
  335. ;*******************************************************************
  336. ;  Install monitor file and handle extra libs 
  337. ;*******************************************************************
  338. (if (IN board 0) 
  339.  (
  340.   (set Driver_Dir "TIDrivers") (set Driver_Name "CVisionPPC") (set Z_name "") (copy_monitor)
  341.   (set Libs_Dir "cgx3dravelib") (set Libs_Name "cgx3drave.library") (set CPU_name "") (copy_lib)
  342.  )
  343. )
  344.  
  345. (if (IN board 1)
  346.   (
  347.    (set error (run (tackon cgx_root "tools/ChkCV3DZorro")))
  348.    (if (= error 0) (set guessZ 1) (set guessZ 0) )
  349.  
  350.    (set pickZ (askchoice (choices "zorro2 - Amiga 2000/zorro2 Expansion Box" "zorro3 - Amiga 3000(T)/4000(T)")
  351.                          (prompt #askzorro)
  352.                      (help   #askzorro)
  353.                          (default guessZ)
  354.               )
  355.    )
  356.   
  357.    (if (= pickZ 0) (set zadd ".Z2"))   (if (= pickZ 1) (set zadd ".Z3")) 
  358.  
  359.    (set Driver_Dir "S3Drivers") (set Driver_Name "CVision3D") (set Z_name zadd) (copy_monitor)
  360.  
  361.    (set Libs_Dir "cgxvideolib") (set Libs_Name "cgxvideo.library") (set CPU_name cpuadd) (copy_lib)
  362.    (set Libs_Dir "cgx3dvirgelib") (set Libs_Name "cgx3dvirgin.library") (set CPU_name "") (copy_lib)
  363.   )
  364. )
  365.  
  366.  
  367. (if (IN board 2)
  368.  ( (set Driver_Dir "S3Drivers") (set Driver_Name "CVision64") (set Z_name "") (copy_monitor) )
  369. )
  370.  
  371. (if (IN board 3) 
  372.  ( (set Driver_Dir "CLDrivers") (set Driver_Name "PicassoII") (set Z_name "") (copy_monitor) )
  373. )
  374.  
  375. (if (IN board 4) 
  376.  ( (set Driver_Dir "CLDrivers") (set Driver_Name "Spectrum") (set Z_name "") (copy_monitor) )
  377. )
  378.  
  379. (if (IN board 5) 
  380.  ( (set Driver_Dir "CLDrivers") (set Driver_Name "Piccolo") (set Z_name "") (copy_monitor) )
  381. )
  382.  
  383. (if (IN board 6) 
  384.  ( (set Driver_Dir "CLDrivers") (set Driver_Name "PiccoSD64") (set Z_name "") (copy_monitor) )
  385. )
  386.  
  387. (if (IN board 7) 
  388.  ( (set Driver_Dir "CLDrivers") (set Driver_Name "Inferno") (set Z_name "") (copy_monitor) )
  389. )
  390.  
  391. (if (IN board 8) 
  392.  (
  393.   (set error1 (run (tackon cgx_root "tools/ChkPIVResource")))   ; 0 <2, 5 >=2
  394.   (if (< error1 5) (message #updatep4flash))
  395.  
  396.   (set Driver_Dir "CLDrivers") (set Driver_Name "PicassoIV") (set Z_name "") (copy_monitor)
  397.  )
  398. )
  399.  
  400. (if (IN board 9)
  401.  ( (set Driver_Dir "SLDrivers") (set Driver_Name "RetinaZ3") (set Z_name "") (copy_monitor) )
  402. )
  403.  
  404. (if (IN board 10)
  405.  ( (set Driver_Dir "SLDrivers") (set Driver_Name "DraCoAltais") (set Z_name "") (copy_monitor) )
  406. )
  407.  
  408.  
  409. (if (IN board 11) 
  410.  (
  411.   (set Driver_Dir "TIDrivers") (set Driver_Name "BVisionPPC") (set Z_name "") (copy_monitor)
  412.   (set Libs_Dir "cgx3dravelib") (set Libs_Name "cgx3drave.library") (set CPU_name "") (copy_lib)
  413.  )
  414. )
  415.  
  416. (if (IN board 12)
  417.   ( (set Driver_Dir "CLDrivers") (set Driver_Name "Pixel64") (set Z_name "") (copy_monitor) )
  418. )
  419.  
  420. ;*******************************************************************
  421. ;  Copy Tools PROCEDURE
  422. ;*******************************************************************
  423. (procedure copy_tools
  424.   (set RootPatchFileName Tool_Name)
  425.   (set pch_file (tackon cgx_root (tackon Tool_Dir (cat Tool_Name ".pch"))))
  426.    (if (exists pch_file)
  427.      ( 
  428.       (set pch_in  (tackon (tackon (cat diskname ":") cd_root) (tackon Tool_Dir RootPatchFileName)) )
  429.       (set pch_out (tackon tempdir Tool_Name))   (spatch)
  430.       (set file_dir tempdir)
  431.      )
  432.  
  433.      (set file_dir (tackon cgx_root Tool_Dir))
  434.    )
  435.  
  436.   (if (exists (tackon file_dir Tool_Name))
  437.    (if (= (exists (tackon Where_Tool (cat Tool_Name ".info"))) 0)
  438.      (copyfiles (source (tackon file_dir Tool_Name)) (dest Where_Tool) (newname Tool_Name) (infos) (optional "nofail") ) 
  439.      (copyfiles (source (tackon file_dir Tool_Name)) (dest Where_Tool) (newname Tool_Name) (optional "nofail") ) 
  440.    )
  441.   )
  442. )
  443.  
  444. ;*********************************************************************************
  445. ;   Ask user to install Tools 
  446. ;*********************************************************************************
  447. (set toolpick 15)
  448.  
  449. ;;(if (= AGA 1) ( (set #cgxmode-todo #CGXModeNot4AGA) (set toolpick 2) ) )
  450.  
  451. (set WantedTools (askoptions (choices #cgxmode-todo #showcgxconfig #guide #commy)
  452.                       (prompt #todo-prompt)
  453.                       (help #todo-prompt)
  454.                       (default toolpick)
  455.           )
  456. ) 
  457.  
  458.   (if (IN WantedTools 0) 
  459.     ( 
  460.       (set wheremode   (askdir (prompt #wheremode)
  461.                                (help   #wheremode)
  462.                            (default "SYS:Prefs")
  463.                )
  464.       )
  465.  
  466.     ((set Tool_Dir "CGXMode") (set Tool_Name "CGXMode") (set Where_Tool wheremode) (copy_tools))
  467.  
  468.       (if (= @language "deutsch")
  469.        (
  470.          (if (= (exists "Locale:Catalogs") 0) (makedir "sys:Locale/Catalogs") )
  471.          (if (= (exists (tackon "Locale:Catalogs" "deutsch")) 0) (makedir (tackon "sys:Locale/Catalogs" "deutsch")) )
  472.          (if (exists (tackon cgx_root "CGXMode/catalogs/deutsch/cgxmode.catalog"))
  473.            (copyfiles (source (tackon cgx_root "CGXMode/catalogs/deutsch/cgxmode.catalog")) (dest "sys:Locale/Catalogs/deutsch") )
  474.          )
  475.        )
  476.       )
  477.  
  478.  
  479.      (if (exists (tackon cgx_root (cat "prefs/presets/monitors/" "monitors.dat")))  
  480.        (copyfiles (source (tackon cgx_root (cat "prefs/presets/monitors/" "monitors.dat")))  (dest "sys:prefs/presets/monitors")) 
  481.       (if (exists (tackon (tackon (cat diskname ":") cd_root) (cat "prefs/presets/monitors/" "monitors.dat")))       
  482.         (copyfiles (source (tackon (tackon (cat diskname ":") cd_root) (cat "prefs/presets/monitors/" "monitors.dat")))  (dest "sys:Locale/Catalogs/deutsch")) 
  483.       )
  484.      )
  485.  
  486.      (set Libs_Dir "gtlayoutlib") (set Libs_Name "gtlayout.library") (set CPU_name "") (copy_lib)
  487.  
  488.     )
  489.   )
  490.  
  491.  
  492. (if (IN WantedTools 1) 
  493.   ( 
  494.     (set whereshowcgxconfig   (askdir (prompt #whereshowcgxconfig)
  495.                              (help   #whereshowcgxconfig)
  496.                          (default "SYS:Tools")
  497.              )
  498.     )
  499.  
  500.     (if (exists (tackon cgx_root "tools/showcgxconfig"))
  501.      (if (= (exists (tackon whereshowcgxconfig "showcgxconfig.info")) 0)
  502.       (copyfiles (source (tackon cgx_root "tools/showcgxconfig"))  (dest whereshowcgxconfig) (infos) (optional "nofail")) 
  503.       (copyfiles (source (tackon cgx_root "tools/showcgxconfig"))  (dest whereshowcgxconfig) (optional "nofail"))          
  504.      )
  505.     )
  506.  
  507.   )
  508. )
  509.  
  510. (if (IN WantedTools 2) 
  511.   ( 
  512.     (set wheredocs   (askdir (prompt #wheredocs)
  513.                              (help   #wheredocs)
  514.                          (default "HELP:")
  515.              )
  516.     )
  517.  
  518.     (if (= @language "deutsch") (set docname "CyberGraphX4_D.guide") (set docname "CyberGraphX4_E.guide"))
  519.  
  520.     (if (exists (tackon cgx_root (tackon "docs" docname)))
  521.      (if (= (exists (tackon wheredocs (cat docname ".info"))) 0)
  522.       (copyfiles (source (tackon cgx_root (tackon "docs" docname)))  (dest wheredocs) (newname "CyberGraphX4.guide") (infos) (optional "nofail")) 
  523.       (copyfiles (source (tackon cgx_root (tackon "docs" docname)))  (dest wheredocs) (newname "CyberGraphX4.guide") (optional "nofail"))          
  524.      )
  525.     )
  526.  
  527.    (textfile (dest "ENV:CyberGraphX/CGXHELPPATH") (append (cat "" wheredocs "") ) )
  528.    (copyfiles (source "ENV:CyberGraphX/CGXHELPPATH") (dest "ENVARC:CyberGraphX") ) 
  529.  
  530.   )
  531. )
  532.  
  533.  
  534. (if (IN WantedTools 3) 
  535.   ( 
  536.     (set wherecomm   (askdir (prompt #wherecomm)
  537.                              (help   #wherecomm)
  538.                          (default "SYS:Prefs")
  539.              )
  540.     )
  541.  
  542.  
  543.     ((set Tool_Dir "Tools/Commodities") (set Tool_Name "CyberGraphX") (set Where_Tool wherecomm) (copy_tools))
  544.  
  545.     (if (= @language "deutsch")
  546.      (
  547.        (if (= (exists "Locale:Catalogs") 0) (makedir "sys:Locale/Catalogs") )
  548.        (if (= (exists (tackon "Locale:Catalogs" "deutsch")) 0) (makedir (tackon "sys:Locale/Catalogs" "deutsch")) )
  549.  
  550.        (if (exists (tackon cgx_root "Tools/Commodities/catalogs/deutsch/cybergraphx.catalog"))
  551.          (copyfiles (source (tackon cgx_root "Tools/Commodities/catalogs/deutsch/cybergraphx.catalog")) (dest "sys:Locale/Catalogs/deutsch") )
  552.          (copyfiles (source (tackon (tackon (cat diskname ":") cd_root) "Tools/Commodities/catalogs/deutsch/cybergraphx.catalog"))  (dest "sys:Locale/Catalogs/deutsch"))        
  553.        )
  554.      )
  555.     )
  556.  
  557.     (set Libs_Dir "gtlayoutlib") (set Libs_Name "gtlayout.library") (set CPU_name "") (copy_lib)
  558.  
  559.  
  560.   )
  561. )
  562.  
  563. ;*******************************************************************
  564. ;  END
  565. ;*******************************************************************
  566. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  567. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  568.  
  569. (run (cat "run " #mpath "/multiview " (tackon cgx_root "Changes.txt")) )
  570. (run (cat "run delete " tempdir " all"))
  571.  
  572. (set @default-dest "sys:")
  573.  
  574. (set #done "Update Complete!")
  575. (if (= @language "deutsch") (set #done "Update fertig!") )
  576.  
  577. (exit #done)
  578.